جروب برمجيات امال مصطفى فى الحاسب الالى 


ُّ 


ي) الفصل الاول البيي انت 5۸7۸ 
أنواع البيانات :- 


تتعامل لغة 19510 57150191 مع العديد من انواع البيانات والتى يقوم المستخدم بإدخالها وتخزينها مؤقتاً فى ذاكرة الكمبيوتر وتكون 
هذه البيانات ناتجة من تنفيذ الأوامر والتعليمات الخاصة بالبرنامج . 


:Character Data Types البيانات الحرفية‎ ١ 
تضم حرف واحد فقط وکل حرف يخزن ب ۲ بایت.‎ :)023 ٠ 
يضم جميع الأرقام والحروف التى لا تدخل فى العمليات الحسابية مثل الرقم القومى ورقم التليفون ويشغل ؛ بايت فى‎ :Sااذ«ع‎ ٠ 
الذاكرة.‎ 
وتنقسم الى‎ : Numeric aa ارٍممs البيانات الرقمية‎ -۲ 
: Integral numeric types بيانات رقمية صحيحة‎ ) | 
من الصفر الى 55 ؟ تحتاج واحد بايت.‎ : B6 
رقم قصير يضم ه أرقام ويحتاج ۲ بايت.‎ : Sh 
أرقام يحتاج ؛ بايت وأسرع من ع22م1 فى العمليات الحسابية.‎ ٠١ رقم صحيح يضم‎ 2 
رقم وتحتاج ۸ بايت بالذاكرة.‎ ١9 عده1.0: رقم طويل تضم اكثر من‎ « 
: No integral numeric type ب ) البيانات الرقمية الغير صحيحة‎ 
رقم فردى تحتاج ؛ بايت.‎ :Sinعاe‎ « 
رقم زوجى تحتاج ۸ بايت.‎ :D0ubاe‎ 
بايت وسريع فى الحسابات المالية.‎ ١5 81نء»12: يحتاج‎ ٠ 
: Miscellaneous Data types البيانات المتنوعة‎ -۳ 
يستخدم نوع البيان فى التاريخ فقط ويحتاج ۸ بايت.‎ :1298 ٠ 
يستخدم نوع البيان فی البيانات التى قيمها عن او»17”219 وتحتاج ۲ بايت.‎ :Booاean‎ » 
)نز 0: تستخدم فى جميع أنواع القيم رقمى او حرفى يحتاج ؛ بايت.‎ « 


** كل نوع بيان له طريقة تخزن فى ذاكرة الكمبيوتر داده*1 . 

يرجع أختلاف أنواع البيانات فى الاساس الى الاستخدام الأمثل للذاكرة من حيث المساحة التخزينية والعمليات الحسابية 
والمنطقية على القيم . 

#ه كل نوع بیان له حيز تخزين فى ذاكرة الكمبيوتر مثل عع1016 تحتاج ؛ بايت . 

**» كل نوع بيان يحتاج مدى معين مثل )ر8 تبدأ من الصفر الى ٠٠١‏ ولو رقم سالب أو رقم به كسر ياخذ الرقم الصحيح 
فقط مثل 5؟.ه ياخذ ه فقط . 


# الارقام الغير صحيحة تقبل الصحيح والغير صحيح والارقام الصحيحة تقبل الصحيح فقط . 
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جروب برمجيات امال مصطفى فى الحاسب الال 


الثوابك 0125121105" 


م 


عبارة عن أماكن محجوزة بذاكرة الكمبيوتر (2دءخ1 ) عند الاعلان عنها يتحدد لها نوع بيان (1576 12262 ) تأخذ قيمة ثابته لا تتغير 
أثناء سير البرنامج مثل بعض الثوابت الرياضية كقيمة ط او ثوابت فى الفيزياء كعجلة الجاذبية الأرضية وسرعة الضوء وسرعة الصوت 
فهى قيم ثابتة لا تتغير . 


. ) - ( أن يبدأ اسم الثابت أو المتغير بحرف أو علامة الشرطة السفلى‎ -١ 

۲- ألا يحتوى الاسم على الرموز والعلامات الخاصة مثل ( ؟ » * ٠۸٨ ٠‏ - »+ » .) وغيرها. 

۳- يمكن أن يتكون من حروف وارقام وعلامة ( - ) الشرطة السفلى . 

4- لا تستخدم الكلمات المحجوزة للغة الفيجول بيزيك مثل (Dim - Single - As - Douple- me -End)‏ . 


5 يفضل أن يعبر اسمه عن محتواه . 
1 يجب اختيار نوع بيان مناسب لطبيعة البيانات 


الإعلان عن النوابت :- 


st‏ : أمر الاعلان عن الثوابت 
Constant_Name‏ : اسم الثابت. 
©1700 17368 : نوع البيان المخزن في الثابت. 
مuاه۷‏ : القيمة الثابتة التي سيتم تخزينها في الثابت القعلن عنه. 
مثال :١‏ تم اعلان عن ثابت ع«ررج[38-) له نوع بيان ع«ذ؟ وتم تخصيص القيمة النصية أثناء الاعلان "برمجيات آمال مصطفى 


۳ 


مثال ۲ : تم الاعلان عن ثابت باسم ( ۲1 ) له نوع بيان رقمى عشرى (16ع510 ) وتم تخصيص القيمة الرقمية 22/7 او ٠.٠١‏ أثناء 
الأعلان . 


0 تستخدم علامة "5 " عند كتابة نص . 

4 تستخدم علامة # # عند كتابة تاريخ أو وقت . 
الاعلان عن الثوابت: 1 0 
تصميم برنامج مساحة ومحيط الدائرة وضع أداة ١‏ :830 /لاءغ و " :8114401 و ١‏ 19561 كما بالشكل وتغير خاصية ٦٥×٤‏ كما سبق 
بالترم الأول . 


جروب برمجيات امال مصطفى فى الحاسب الالى : أعداد : آمال مصطفى 


Private Sub Button1l_ Click (ByVal sender 
Label الاداةٌ‎ 5 SES” Dim Radius As Single 
Const Pi As Single = 22 / 7 


A EIR, 0 Radius = TextBOoOx1.Text 


/ 0 Label2.Text = Pi * Radius ^ 2 
Text Box Sis End Sub 


7 
NSS ENS Private Sub Button2_ Click (ByVal sender‏ 
Dim Radius As Single‏ . مساحة الدائره 
Const Pi As Single = 22 / 7‏ 
Radius = TextBox1.Text‏ هيد 3 
Label2.Text = Pi * Radius * 2‏ وتء + 
ات 
E ee‏ ثلاث أدوات ہu††o‌B‏ 
كود 1 80100 يتم الاعلان عن المتغير ( وںالهR‏ ) ثم الاعلان عن الثابت ( 1م ) ثم تخصيص قيمة من الخاصية ( ×16 
text‏ . 1 »اوط ) للمتغير ( 8303105 ) ثم تخصيص التعبير ( 52 930105 * آم ) للخاصية (هغ.130612 ) تطبيقا للقانون 
لحساب مساحة الدائرة. 
كود 51002 يتم الاعلان عن المتغير والثابت كما سبق وعند حساب محيط الدائرة يتم تخصيص للتعبير ( 2* 5ب8201 * آ۴ ) 


لاحظ أن : يمكن الاعلان عن المتغيرات والثوابت على مستوى التصنيف ولا نحتاج للاعلان مرتين كما بالمثال . 
تحديد نطاق إعلان المتغيرات والثوابت 
عند الاعلان عن ثابت او متغير على مستوى الاجراء 28311031 وكتابة كود اخر لمساحة الدائرة ولم نعلن عن متغير او ثابت على مستو 
الاجراء 1831144022 سوف يحدث خطا بالبرنامج لذلك لابد من عند استخدام متغير او ثابت اكثر من مره يتم الاعلان عنهم على مستوى 
التصنيف 
Private Sub Button1 Click (ByVal sender As Ob]‏ 
ım Radius As Single‏ 
—gonst pi As Single = 22 / 7‏ 
Radius = TextBOox1.Text‏ 


Label2.Text = pi * Radius ^ 2 
End Sub 


Prã vjlName ‘Radius’ is not declared. (syva1 sender as € 


Radius = TextBox1 .Text 


2 * ورتووچ * خم = =x‏ .|@ إضه 
End Sub‏ 


شكل ( 9> كود (Code)‏ حساب مساحة الداترة ومحيطها 


فسوف تظهر رسالة خطأ مفادها عدم التعرف على المتغير (1526010145) والثابت (آم)ء حيث تم الإعلان 
عنهما في الإجراء الخاص يزر الأّمر 1١٥)انا8.‏ وبالتالي فهما غير معرفين في الإجراء الخاص بزر 
الآأمر 85101460112 


الثاني كما هو موضح بشكل :)۷-١(‏ 


Private Sub Button2 Click(ByVal sender As Obj] 


Radius = Teer a BEE 


LabelZ2.Text = pi * Radius * 2‏ 
a‏ 
End Sub 8‏ 
ولحل هذا المشكلة نقوم بالاعلان عن متغير و ثابت مرتين كما بالمثالث السابق لكن نستطيع تجنب ذلك الخطا والتكرار مرتين بكتابة كود 
الاعلان عن متغير وثابت على مستوى التصنيف كالتالى : 
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0 برمجيات امال مصطفى فى الحاسب الالى ١‏ أعداد : آمال طن 
EJ Public Class Form3‏ 
Dim Radius As Single‏ 
Const pi As Single = 22 / 7‏ 
Private Sub Button1 Click (ByVal sender As‏ 
Radius = TextBOox1.Text‏ 
Label2.Text = pi * Radius ^ 2‏ 
End Sub‏ 


Private Sub Button2 Click (ByVal sender As 
Radius = TextBox1.Text 
Label2.Text = pi * Radius * 2 

End Sub 


Ena Class 


المتغيرات 1721121165 


“i 


عبارة عن أماكن محجوزة بذاكرة الكمبيوتر ص ج8 عند الاعلان عنها يتحدد لها اسم ونوع مم رآ 12262 وعادى ما تتغير قيتها أثناء سير 
البرنامج ويمكن أن ياخذ المتغير قيمة ابتدائية تسمى 1010191 ثم تتغير قيمته أثناء سير البرنامج مثل سعر سلعة أو منتج - قيمة ضربية - 
عنوان موظف . 
لإعلان عن المتغيرات 
initial value‏ = نوع البيان Dim Variable_ Name AS Data type‏ 
0 : أمر الاعلان عن المتغيرات. 
Variable Name‏ : اسم المتغير. 
D44‏ : نوع البيان الذي سيتم تخزينه في المتغير. 
ماه 121131 : القيمة الابتدائية التي يتم تخزينها في المتغير القعلن عنه؛ وهذا الجز اختياري. 
مثال :١‏ تم اعلان عن متغير باسم ع«مرج]8-”1 له نوع بیان م511 


Dim F-Name AS String 
Siہعام له نوع بیان‎ ۲٥٤1_۲۴ مثال۲: تم اعلان عن متغير باسم‎ 
Dim Total_Price AS Single 
04) مثال۳: تم اعلان عن متغير باسم 700187 له نوع بیان تاريخ‎ 
Today AS Date = #1/25/2017# 
لاحظ : عند اهمال القيمة الابتدائية فأن امتغير ياخذ القيمة الافتراضية‎ 


5 المتغير العددى صحيح او عشرى يأخذ القيمة صفر 
۲- المتغير الحرفى ييأخذ القيمة سلسلة حرفية فارغة 


الاعلان عن المتغيرات : قم بد نافذة نموذج لادخال بيانات من المستخدم وكتابة كود الاعلان عن 
التغيرات داخل 1811160121 زر . التسجيل كما بالشكل 


جروب برمجيات امال مصطفى فى الحاسب الالى 


9 تسجيل مستخدم جديد_ لح اها 
عناوبن بدانات أدوات التحكم نوع البيان (1[/06 0363) أسماء المتغرات 
وین بد و A f‏ | 1 


: أمثلة للإعلان عن متغير‎ 
Private Sub Button1_ Click (ByVal ser 


Dim U_Name As String 

Dim U_B_D As Date 

Dim U,_ Gender As Boolean 

Dim U_Ç_E As Integer 
End Sub 


جملة التخصیص )455195111112116 : 
عبارة عن جملة من طرفين بينهما علامة ( = ) ولا يقصد بها التساوى الحسابى والطرف الأيسر يمثل اسم المتغير أو الثابت الذى يخزن 
فيه القيمة بالطرف الايمن 


متغير ( 23181و ) 
قيمة من متغير ( 712181 ) أو 


أو خاصية ( Property‏ ( 
خاصية ( Property‏ ( 
او 
قيمة من تعبير حسابى ( Expression‏ ) 


أولاً : القيمة المجردة : يتم الاعلان عن المتغير ( مطصسد ) من النوع ( «مع»101 ) ثم تخصيص القيمة المجردة ( 5 ) للمتغير 
Number (‏ ) مثل: 
أمثلة للتخصيص: 
Dim Number AS Integer‏ 
Number 2 5‏ 
ثانياً : القيمة من متغير : يتم الاعلان عن متغيرين ( 1 Numb‏ ) و ( 2 Number‏ ) من النوع ( «وع»)10 ) ثم تخصيص 
القيمة المجردة ( 5 ) للمتغير ( 1 اع15دن3 ) وتم تخصيص قيمة المتغير ( 1 711:15 ) للمتغير 
(Number 2 )‏ 
Dim Number 1 AS Integer‏ 
Dim Number 2 AS Integer‏ 
Number 1 8‏ 
Number1‏ ت 2 Number‏ 
ثالثاً : قيمة من خاصية : تم الاعلان عن متغير ( »7/350 ) من النوع ( ع«ذ)؟ ) ثم تم تخصيص القيمة من الخاصية ( اها ) 
لأداة التحكم ( 1 Label‏ ) 
Name AS String‏ 
Label1.text‏ 
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رابعاً : قيمة من تعبير حسابى : تم الاعلان عن متغير ( و3110 ) من النوع ( »1عمف5 ) ثم تخصيص القيمة المجردة ( ۷ ) 
للمتغير ( 61 ]7 ) ثم غعادة عملية التخصيص للمتغير ( 7/2251 ) ثم تم غعادة عملية التخصيص للمتغير ( 7/1261 ) من 
خلال تعبير ) 3 / (Number‏ 


Dim Number 1 AS Single 
Number 1 030 7 
Number 1 = Number 1 / 3 
خامسا : الاعلان عن متغير ونذ تخصيص قيمة فى خطوة واحدة ۽ مثل‎ 


Dim Number1 AS Single 1 کے‎ 


يمكن التخصيص للمتغيرات 7791121165 أثناء الإعلان عنها أو فى مرحلة لاحقة . 

يمكن أعادة التخصيص أى عدد من المرات ولذلك تسمى متغيرات لانها تتغير أثنا سير البرنامج . 

التخصيص يمكن أن يكون بقيمة مجردة أو بمتغير أو بخاصية أو بتعبير حسابى سبق شرحهم 

علامة = لا يقصد بها التساوى الحسابى وأنما يقصد بها علامة للتخصيص مثل 1 + × = × تمثل ( × ) بالطرف 
الأيسر مخزن بالذاكرة و ( × ) بالطرف الايمن تمثل القيمة واذا أفترضنا أن (×) تساوى ( 5 ) بعد عملية 
التخصيص (1 + 5 ) أى 6 . 


Me.Label5.Text = UserName &vbCrLf & UserBirthDate & vbCrLf & _UserGender & vbCrLf & 
UserNoFamily 


شرح الكود السابق : 
الكود عبارة عن جملة تخصيص لمجموعة من المتغيرات للخاصية )ع1 لأداة التحكم 5 1.261 
يفصل بين كل متغير والآخر ( & 7:11 & ) 
معامل الربط & : يستخدم للربط بين القيم النصية ( السلاسل النصية ) 
الكلمة المحجوزة 710:14 : رمز إضافة مفتاح الادخال وسطر جديد 
تستخدم علامة ( - ) حتى يمكن كتابة الكود على أكثر من سطر وذلك لتنظيم وتسهيل قرءة الكود 
Me‏ تعبر عن نافذة النموذج ۴٥٣۵‏ 


Private Sub Button1 Click (ByVal sender As System.Object, ByVal 
Dim U_Name As String 
Dim U_B_D As Date 
Dim U_Gender As Boolean سسا‎ 2 


U_Name = TextBox1.Text 

U_B_D = TextBox2.Text 

If RadioButton1.Checked = True Then 
U_Gender = True 

End If 

If RadioButton1 .Checked = FalsÈ Then 
U_Gender = False 

End If 

U_C_F = TextBox3.Text 


_ ع vbCrLf‏ ع vbCrLf & U_B D‏ ع Me.Label5.Text = U_Name‏ 
U_C_F 5‏ ع vbCrLf‏ ع U_Gender‏ 
استخدام المتغيرات 
End Sub‏ 
كتابة الملاحظات : تستخدم كلمة ( 121131 ) لتساعد القارئ على فهم وتوضيح الأكواد المكتوبة فى نافذةالكود أو العلامة ( » ) ما 
يكتب بعدها لا يعتبر أكواد ويهمل عند ترجمة الأكواد بواسطة المترجم . 
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أولويات تنفيذ العمليات الحسابية : 
أولويات تنفيذ العمليات الحسابية : ١‏ . الرتبة كالضرب والقسمة أو الجمع والطرح أو 

-١‏ فق الأقواس من الداخل الى الخارج ٠‏ الآس مكرر أكثر من مرة فإن ترتيب تنفيذها يكون 

۲- رفع الأسس ' من اليسار الى اليمين مثل 

“- الضرب و القسمة من اليسار الى اليمين 4--32*2 

9*2+4*4 الجمع والطرح من اليسار الى اليمين‎ -٤ 

لجع ورم 18+4*4 


18+16 
| =4 


الإخطاء الإملائية 


أولاً ٠‏ الإخطاء لغوية Syntax Errors‏ : 
هو خطأ يحدث عند كتابة الكود بصورة غير سليمة مثل ©5121 45 × 1831 تم الاعلان عن المتغير × ولكن تم كتابة ر¡ خطأ . 
خطا فى عدم تخصيص قيمة عند الاعلان عن ثابت مثل ع[ع2زأو 25 << 054» 
معالجة الخطأ : 19٤۴‏ لاتسمح بمثل هذه الاخطا يتم اكتشاف الخطأ عند كتابة الخطأ . 
ثانياً : الاخطاء المنطقية Losic Error‏ : 
هى أخطأ تودئ الى نتائج غير سليمة عند استخدام تعبيرات بناؤها غير سليم مثل عند كتابة ) 2^ Radius‏ + زط ) فعند تنفيذ البرنا € 
لاتظهر أخطا ولكن النتيجة تكون خطأ . 
مكانجة الخطا :ر يجب اختبار البرنامج بأدخال بيانات سبق التأكد من صحتها . 
ثالثاً : الأخطاء عند التشغيل Runtime Errors‏ : 
هى أخطاء تحدث عند تخصيص قيمة أكبر من مدى نوع البيان المستخدم وتخصيص نوع قيمة يختلف عن نوع بيان المتغير أو الثابت أو 
الخاصية ولا يستطيع مترجم ترجمتها من الاعلان عن نوع بيان ©1374 وادخال رقم أكثر من ٠٠١‏ . 
التعامل مع الأخطاء : - 
تصميم برنامج لجمع ثلاث درجات لمواد مختلفة والإعلان عن ثلاث متغيرات ولهم نوع بيان ©1334 اى لابد من أدخال من الصفر الى 


Yoo 


الصف الثالث الإعدادى 
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¬5 Public Class Forml 
Dim x As Byte 
Dim y As Byte 
Dim h As Byte 


Private Sub Burton1_ Click (ByVal sender As Syst 
Try 
الاخطا عند أدخال أكبر من نوع البيان‎ x = TextBox1.Text 
إن أخ 1 ال‎ = TextBOxX2.Text 
5 h = 2 5ج عدع‎ 1:3 . 2625 
Label4.Text = x جا‎ y +h 
Catch 
Me.Text<BOX1.Text = "" 
Me.TextBox1.Text = Focus )( 
Msg50ox )( ادحل انرقم صحيح"‎ "( 
End Try 
Tf Label4.Text < SO Then 
Msټ80>×‎ ) "ر اسب"‎ ( 
21563172 Label4.Text > SO Then 
MsgBox ("تناجح")‎ 
Else 
End If 
Label4.BackColor = Color.Coral 
End Sub 
End Class 


الاخطاء المتوقع أن يقع فيها المستخدم : 
-١‏ إدخال سلسلة حرفية فارغة داخل 10 ]165 بعدم إدخال بيانات فلا يتم تحويل 
السلسلة الحرفية الفارغة لنوع البيان هر8 فتظهر رسالة أدخل الرقم . 
-١‏ أدخال قيمة نصية ( خمسة عشر درجة) داخل مط × فلا يتم تحويل القيمة 
النصية الى نوع البيان 8716 فتظهر رسالة أدخل الرقم صحيح . 
"- أدخال قيمة أكبر من ١55‏ أى أكبر من الحد المسموح لنوع البيان 
وفى جميع الأخطاء يظهر بنافذة الكود باللون الاصفر برسالة الخطأ وللتغلب على هذه 
الاخطأ من خلال استخدام 11y‏ و Catch‏ 


معالجة الأخطاء المحتمل وقوعها من خلال جملة : 
Try ™»‏ 

كتابة الكود المحتمل حدوث أخطاء عند تشغيل البرنامج 
Catch "#<‏ 


"الصف الثالث الإعدادى 


جروب برمجيات امال مصطفى فى الحاسب الالى 
نے 


الفصل الثانى 
التلفرع Branching‏ 


Select Case 


الصيغة للتفرع باستخدام :If Then‏ 
۴ا التعبير الشرطى Then‏ 
الكود فى حالة تحقق الشرط 

if 


الصيغة للتفرع باستخدام Then‏ 


الصيغة للتقرع ياستخدام عوج )> Select‏ 
Select Case Variable 5‏ 
الحالة الاولى Case Value‏ 
الامر الذى ينفذ اذا كانت قيمة المتغير مساوية للقيمة ١‏ 
الحالة الاولي. Case Value2‏ 
الامر الذى يتفذ أذا كانت قيمة المتغير مساوية للقيمة ۲ 
الحالة الا Case Value FT‏ 
الامر الذى ينفذ اذا كانت قيمة المتغير مساوية للقيمة ؟ 
أضف الحالات المطلوية حسب البرتامج 
Case Else 7 3 5‏ 
الكود فى حالة عدم تحقق اى شرط من الشروط السابقة 
End Select‏ 


-:If Then جملة‎ 


الصيغة للتفرع باستخدام 16 ا: 
117 التعبير الشرطى عط 
الأوامر التى يتم تنفيذها فى حالة تحقق الشر 6006© 
End if‏ 


جملة 1120 1۴ البسيطة تستخدم فى جالة بديل واحد فقط : 
-١‏ جملة ( 11862 14 ) تتكون من 1f‏ ثم التعبير الشرطى ثم كلمة 11٥"‏ على سطر واحد . 
؟"- كتابة مجموعة من الأوامر المطلوب تنفيذها إذا كان ناتج الشرط صواب تحقق ©0111 . 
۳- تنتهى جميع جمل ¡f‏ الشرطية ب 16 10230 اى انتهاء جملة الشرط . 
ه أذاكانت قيمة الشرط صحيح يتم تنفيذ الأوامر التى تلى 116 وحتى EÛ ¡f‏ . 
اذا كانت قيمة الشرط لم يتحققع5219 يتم تنفيذ الأوامر التى تلى 14 192:0 اى باقى أوامر البرنامج . 


التعبير الشرطى : هو جزء من كود البرمجة يتكون من ثلاثة أجزاء منطقية يسبقها متغير أو ثابت يتم مقارنته مع قيمة مجردة أو قيمة 
من متغير أو ثابت اخر او ناتج تعبير حسابى فإذا تحقق الشرط فهذا يعنى أن نتيجة التعبير الشرطى ©1371 ويتم تنفيذ كود معين حقق 
الشرط فهذا يعنى ان نتيجة التعبير الشرطى مء[ھ۴ ويتم تنفيذ كود اخر 


الصف الثالث الإعدادى الفصل الدراسى الثانى 


عامل المقارنة 


ناتج تعبير حسابى ‏ | مثل >» <2- 


Variable 
Or 


Constant 
خاو كم‎ B= A+ 5 »* 2 


Expression IC <> دم‎ 3 * 2 


3 Public Class 1 


Private Sub Button1 Click (ByVal sender 
Dim X As Integer 
X = Me. TextBox1. Text 
If X >= 50 Then الاعلان عن المتغير × للدرجة داخل‎ 
Msg80x تاجح"(‎ " text box 
End If أستخدام و٥ ط۲ ]¡ وفى حالة تحقق‎ 
End Sub 5٠ الشرط :مغ أكبر من او يساوى‎ 
البرنامج فى وضع التشغيل وضع الاداوات‎ End Class تظهر رسالة ناجح واذا لم يتحقق‎ 
Button ف‎ Text box s Label الشرط ينفذ باقى الاوامر بالبرنامج‎ 
و تخیر الخصائص كما سبق دراستها‎ 


خريطة التدفق سبق دراستها 
مرحت مسن a‏ 
لطباعة كلمة ناجح فى حالة 
ان تكون الدرجة أكبر من 50 


ملاحظة :_عدم ظهور رسالة عند ادخال قيمة أقل من 5٠‏ لان ناتج الشرط عو1”01 فينفذ ما بعد ۴¡ Ed‏ وهو 51 100 اى انهاء 
الإجراء 
يمكن كتابة نفس جملة 1۴ السابقة فى سطر واحد ولا يتم وضع ¡f‏ 1720 مثل 

If x>= 50 then msgBox )'' ('ناجح‎ 


| الشتف الثالث الإعدادى >< 


— ۳ 
جروب برمجيات امال مصطفى فى الحاسب الالى أعداد : آمال مصطفى 


أصغرمن أ يساوى 


جملة Then Else‏ 16:- 
تستخدم فى حالة وجود اختيارين ( بديلين ) 
# أذا كان ناتج التعبير الشرطى ''15216" يتم تنفيذ الأوامر بالكود الأول . 
٭ أذاكان ناتج التعبير الشرطى :152156" يتم تنفيذ الأوامر بالكود الثانى . 


الصيغة للتفرع باستخدام :If Then Else‏ 
١‏ 6" التعبير الشرطى "11 
الأوامر التى يتم تنفيذها فى حالة تحقق التعبيرالشرطى "الكود الاول " 
Else‏ 
الأوامر التى يتم تنفيذها فى حالة عدم تحقق التعبير الشرطى "الكود الثانى" 
End if‏ 


جملة 1112 ٠‏ 16 تستخدم فى حالة بديلين : 
-١‏ جملة ( 1162 16 ) تتكون من 16 ثم التعبير الشرطى ثم كلمة رم1 على سطر واحد . 
"- ثم الأوامر المطلوب تنفيذها اذا كان ناتج التعبير الشرطى " ©1101 " . 
ا ثم كلمة ‰6[ على سطر واحد ومعناها " والا " . 
£ ثم مجموعة من الأوامر فى حالة عدم تحقق الشرط الاول كان خطأ"' eی[ھ۴''‏ . 
ها ته جملة ۳[الشرطية ب End if"‏ " 
e‏ أذا كان ناتج التعبير الشرطى صواب ''eںآآ'‏ يتم تنفيذ الأوامر التى تلى كلمة ''11:»2""' حتى كلمة ''ع17115 " 
ه أذا كان ناتج التعبير الشرطى "12196" يتم تنفيذ الأوامر التى تلى ''ع1719 ''حتی End if‏ 


مثال : تصميم برنامج فى حالة أن تكون الدرجة أكبر من ٠١‏ طباعة كلمة ناجح وطباعة راسب فى حالة ان تكون الدرجة أقل من ٠ه‏ 


خريطة التدقق سيق دراستها توضح 
حائة ان تكون الدرجة أكير من 50 
وطياحة راسب فى حالة ان تكوات 
الدرجة أقل من ٠.‏ 


جروب برمجيات امال مصطفى فى الحاسب الالى 


2253597 5 116طنا2‎ Class Form1 


EFFIRTAN Private Sub Button1_ Click (ByVal sender i‏ ةد وق 
Dim X As Single‏ 


X = Me. TextBox1. Text 
If X >= 50 Then 
Msg80X تاجح"(‎ "( 
Else 
("راسب") ه1598‎ 
End If 
End Sub الاعلان عن المتغير × من نوع البيان‎ 
TE TTT End Class tex box للدرجة داخل‎ "Single" 
أستخدام 0 كد 2 وفى حالة تحقق البرنامج فى وشع التشغيل وضع الاداوات‎ 
ريه وسعير‎ IE الشر طف أكبر ا‎ 
رسالة ناجح واذا لم يتحقق الشرط "178156 " لخصقص كنا سم‎ 
"10156" طباعة كلمة راسب ينفذ ما بعد‎ 


خريطة التدقق سبق دراستها 

نوع ارقم فى حالة ان يكون 

الرقم يقبل انق جی يطب divisible‏ 

"الرقم زوجى "وغير ذلك يطبع 2 by‏ 8 


"الرقم قردی لذ 
| | 


سے 


Public Class Form1l 


Private Sub Button1 Click (ByVal sender As 
Dim N As Single 
N = Me.TextBox1.Text 
If (N Mod 2) = 0 Then 
انرقم زوجى") ×80و15‎ "( 
Else 
15080)" انرقم فردى‎ "( 
End 1f 
End Sub 


الاعلان عن المتغير × من نوع البيان "16ج مك" للرقم داخل ×0ط غ665 End Class‏ 
أستخدام "75156 1عط) 1۴" وفى حالة تحقق الشرط عں) بان الرقم 

يقبل القسمة على ۲ تظهر رسالة" الرقم زوجى " واذا لم يتحقق الشرط 

"73156 " تظهر رسالة ان " الرقم فردى " 


| الصف الثالث الإعدادى 


© _رابعاً: للتفرع باستخدام_جملة_©25') 6ع»5©12 :- 

تستخدم فى حالة وجود بدائل كثيرة جملة Case‏ 5161 تشبه جملة 11 ©1015 then‏ 16 ولكن 
١.يفضل‏ استخدامها عندما يكون التفرع لأكثر من شرطشين 
؟.يفضل استخدامها عندما يكون التفرع أتخاذ القرار معتمداً على قيمة متغير واحد 
*.تيسر فهم البرنامج بنافذة الكود 


الصيغة للتفرع باستخدام ©6256 Select‏ 
Select Case Variable‏ 
الحالة الاولى Case Value‏ 
الامر الذى ينفذ أذا كانت قيمة المتغير مساوية للقيمة ١‏ 
الحالة الاولى 2 Case Value‏ 
الامر الذى ينفذ أذا كانت قيمة المتغير مساوية للقيمة ۲ 
الحالة الاولى ؟ Case Value‏ 
الامر الذى ينفذ أذا كانت قيمة المتغير مساوية للقيمة ٣‏ 
أضف الحالات المطلوبة حسب البرنامج 
Case Else‏ 
الكود فى حالة عدم تحقق اى شرط من الشروط السابقة 
End Select‏ 


جملة ©025) {ءع[عء تستخدم فى حالة وجود أكثر من بديل : 
-١‏ جملة (عوق» )ع5»16) تتكون من »0256) )56160 ثم يأتى بعدها المتغير ''©101211ه7؟" . 
"- السطر التالى ل »و0 561604 به كلمة »وجح وهى تدل على المتغير ويليها الشرط . 
۳- السطر التالى لكلمة ©و3ح به الأوامر المطلوبة تنفيذها إذا تحقق الشرط . 
4- يمكن تكرار سطر عوه» والأوامر التابعة له اى عدد من الاحتمالات حسب البرنامج . 
° ثم الشرط الافتراضى وهو سطر مء[ 2256© يتم تنفيذ الأوامر التالية لهذا السطر أذا لم يتحقق اى شرط من الشروط 
السابقة . 
-٦‏ جملة (eیھc selec‏ ( تنتهى ب End select‏ . 


Private Sub Button1_ Click (ByVal sender As System.Object, ByV 
Dim D As Single 
D = Me.TextBox1.Text 
Select Case D 
Case 85 To 100 
Label2.Text 
Case 75 To 84 
Label2.Text 
Case 65 To 74 
Label2.Text 
Case 50 To 64 
Label2.Text مقبول‎ "( 
Case 0 To 49 
Label2.Text ضعيف‎ "( 
Case Else 
"الرجاء ادخال درجة بين 0 الى 100" = 5لاع612.1طهآة‎ 


End Select 
iSelect case جملة‎ 


الصف الثالث الإعدادى | 


جروب برمجيات امال مصطفى فى الحاسب الالى 

الأخطأ المتوقع أن تحدث فى د 
)١‏ كتابة درجة باللغة العربية مثل أدخال خمسة عشر بدلآصمن ٠١‏ . 
( عدم أدخال نص سلسلة حرفية فارغة . 
*) أعلان عن نوع بيان هر8 وادخال الدرجة أكبر من نوع البيان . 
نع وقوع خطأ التشغيل البرنامج : 
٭ استخدام جملة Try / catch‏ 
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Private Sub Button1_Click (ByVal sender As System.Object, 
Din degree As Single 
Try 
degree = Me. TextBox1. Text 
If degree = 0 Then 
اهط٠12.۴٠×خ‎ = "درجة الحرارة تساوى صفر"‎ 
515612 degree < 0 Then 
"درجة الحرارة أصغر من الصنر" = غنزه12.7هظها‎ 
Else 
"درجة الخرارة أكبر من الصنر" = غلاء12.7»ظما‎ 


End If 
: 287/1) كتابة الكود الاصلى بين جملة‎ 
N وعند اه يتم كتابة الأوامر التى يتم تنفيذها فى حالة الوقوع‎ 
ıe. TextBox! . Focus () EE o A 
تظهر رسالة بأدخال عدد من خلال الامر (" أدخل‎ ١ 
msgBox عدد")‎ 
أيقاف مؤشر الكتابة داخل صندوق النص ×80 غ165‎ ۲ 
me.textbox1.focus)) من خلال الأوامر‎ 
لأفراغ صندوق النص من محتواه من خلال الامر‎ -* 
me.textbox1.text="" " 


TT التكرار‎ 
Loops and Procedures 


0 


ا أولاً: جملة FOr Next‏ :- تستخد حالة تكرار كود محدد عدد من المرات ٠‏ 


For Next الصيغة العامة لجملة‎ | 
For variable = start value TO End value Step Add value 
Code 


Next ر‎ 


. ) اسم المتغير الذى يمثل العداد ويجب ان يكون نوعه رقمى ( صحيح أو عشرى‎ : Variable 
. قيمة بداية العداد أو بداية التكرار وهی قيمة رقمية‎ : : Start value 

©2111 120 : قيمة نهاية العداد أو التكرار وهى قيمة رقمية 

عاج 400 : قيمة زيادة العداد أو القيمة التى يزيد بها العداد حتى يصل الى قيمة النهاية 

000 : عبارة عن أمر أو اكثر المراد تكراره ويكون بين بداية الحلقة التكرارية م ونهايتها )»71 


الصيغة العامة لجملة :»77 ۴٠١‏ عندما تكون قيمة الزيادة موجبه بواحد 
For variable = start value TO End value‏ 
Code‏ 
Next‏ 


/ 
ملاحظة هامة : كتابة اسم المتغير بجوار )ع7 اختيارية 
ET‏ جعل قيمة البداية أكبر من قيمة النهاية وتكون قيمة الزيادة متغير العداد بالسالب 
يمكن جعل قيمة البداية أو قيمة النهاية أرقام صحيحة أو عشرية أو متغيرات 
عند الاعلان عن قي عشرية يجب الاعلان عن متغيرات من النوع ©5181 
قيمة الزيادة الافتراضية فى جملة التكرار :716 ۴٠۲‏ فى حالة عدم كتابة مع)5 تكون واحد صحيح 
مثال : أنشاء برنامج لعرض الاعداد من ١‏ الى ” عند الضغط على زر عرض الاعداد من ١‏ الى ” يعرض رسالة بالاعداد : 


e 


و 


۰ 
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e 


Private Sub Button1_ Click (ByVal 
Dim X As Integer 
For X =1 To 3 
MsgBox (X) 


NE E 

Dim X As integer الاعلان عن المتغير × بنوع بیان رقمى صحيح‎ ١ 

؟- أستخدام كلمة ه۴ بداية الحلقة اتكرارية وتخزن القيمة داخل " × " كعداد وتبدأ الحلقة التكرارية من ١‏ وتنتهى عند ٠‏ 

۳- ظهور رسالة بالعدد ١‏ الذى يمثل × 

7+1 تقوم 716 بمقارنة قيمة المتغير × بقيمة النهاية وعند عدم تحقق الشرط »و21 يتم زيادة‎ E 

es 5‏ ۲ ثم يذهب عند 46ر71 ويقارن بالقيمة النهاية وعند عدم تحقق الشرط يقوم بزيادة رقم 7+1 
حتى تصل قيمة × اكبر من قيمة النهاية ۳ ويتحقق الشرط فيخرج من الحلقة التكرارية 


مثال ۲ تصميم برنامج لعرض الاعداد من ١‏ الى ۳ فى صندوق النص :0 [)ع'1” عند الضغط على زر عرض الاعداد من ١‏ الى ۳ 
يعرض الاعداد داخل صندوق النص ×ہ0ط)×ع) : 


| الصف الثالث الإعدادى الفصل الدراسى الثانى 


۳ 


ک3ا وتات الل صق فی لحا لار 


أعداد : آمال 
EBI ™‏ ا ' 


0-0-7 


Forml 
1 


3 


: ا‎ Private Sub Button Click (ByVal sender قش‎ 0 


1 Dim m As Integer 
Me. TextBox1.Text = Me. TextBox1.,Text & m 
فم طا‎ 
الأمر داخل الحلقة التكرارية والذى يعنى وضع قيمة المتغير (0) بجانب ما هو موجود داخل‎ -١ 
صندوق النص (“<167480)» باستخدام معامل الريط © لريط سلسلتين حرفيتين ببعضهما.‎ 
؟ - في حالة كتابة السطر المشار إليه بهذه الطريقة "=أ×ه1.1×٥ط×ه).٠" لن نلاحظ تغير قيمة‎ 
المتغير (/1) أثناء التنفيذ وانما سيظهر آخر قيمة فقط وهي ” لأن عرض الناتج سيتم في نفس المكان‎ 
فيظهر آخر قيمة فقط.‎ 
ا‎ Me.textbox1.text='"'"'" : textbox كود لمسح محتويات صندوق النص‎ 
: نلاحظ ظهور الاعداد بجوار بعضهم ۱۲۳ ولكى يظهر كل رقم بسطر بالكود التالى‎ 
Me.TextBox1.Text = Me.TextBox1.Text & m & vbCrLf 


ضبط قيمة الخاصية عما)آاںM‏ الى القيمة ع1 لتعدد الاسطر داخل >0طt×م)‏ 
تستخدم 71114 لإضافة رمز مفتاح الاخال وسطر جديد وهى اختصار لمصطلح visual Basic Carriage Return Line Feed‏ 


Private Sub Button1 Click (ByVal sender As System.Object, ByVal e As Sy 


7 Dim m As Integer 
كود لمسح محتوى‎ 


. | 52055 - TextBox1 .Text 
صدوق لنص‎ For m = 1 To 3 
Me.TextBoxl1.Text = Me.TextBox1.Text ع‎ m عه‎ vbCrLf 
Next م‎ 
nd Sub ف‎ 


الصف الثالث الإعدادى 


جروب برمجيات امال مصطفى فى الحاسب الالى 


Private Sub Button1 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Dim m As Integer CEE 2 
Dim product As Integer e كك ك‎ ٠ 
Dim str As String ١ 4 
Me.TextBox1.Text = "" 
For m = 1 To 12 
ate. = & FR" E RG "->* 
product = 3 * m 
Me.TextBox1.Text = Me.TextBox1.Text & str & product & vbCrLf 
Next m 
End Sub 


-١‏ تم تعريف متغير رقمي صحيح باسم (0600101) لتخزين حاصل الضرب به مع كل تغيير فى قيمة 
المتغير (11). 
تم تعريف متغير حرفي باسم (541) لتخزين شكل جملة حاصل الضرب بحيث نحصل على الناتج بالشكل 
التالي (-31 او -3:2 وهكذا) كسلسلة نصية مع كل تغيير فى قيمة المتغير (/8). 
تم عرض قيمة المتغير (511) ثم معامل ربط & ثم قيمة المتغير (010010©4) في صندوق النص 
.(TextBox)‏ 
يمكن كتابة الكود بدون استخدم هذه المتغيرات (كءاطدااة۷) كما يلي: 


Dim m As Integer . ارات‎ 
Me. TextBox1. Text = "'" 
For m = 1 To 12 ددم‎ 55 


Me.TextBox1 .Text = Me.TextBox1.Text & 3 & "x" ع‎ m & ">" & 3 * m & vbCrLf 
Next m 


مثال :٤‏ تصميم جدول ضرب لای رقم يتم ادخاله داخل صندوق النص 


Private Sub Button1 Click (ByVal sender As System.Object, ByVal e As Sy i Fomi 
Dim m As Integer ات‎ 
Dim product As Integer 
Dim num As Integer 
Dim str As String 
num = Me.TextBOox2.Text 
Me.TextBox1.Text = "" 
FoR ™ 1T0 12 
Ei اللي يي‎ E الي ا‎ 
product = num * 0 
Me.TextBox1.Text = Me.TextBox1.Text & str & product & vbCrLf 
Next m 
End Sub 
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جروب برمجيات امال مصطفى فى الحاسب الا 5 


التحكم في البداية والنهاية ومقدار الزيادة في جملة ×× 70 : 


أضافة كلمة م٠٤‏ وتعنى مقدار الزيادة ويمكن أن تكون قيمة البداية أكبر من قيمة النهاية على أن تكون قيمة الزيادة 
سالبة وكما يمكن أن تكون قيمة البداية والنهاية والزيادة بأرقام صحيحة أو عشرية أو متغيرات 
الصيغة العامة هى 
For Variable = start value to End value Step Add value‏ 
مثل 2 For X = 5 to 50 step‏ 
الكود 
Next (Variable )‏ 


ك ثانياً: جملة ©7511 D50‏ :- 


تستخدم فى حالة تكرار كود لعدد من المرات غير معروف نهايته مسبقا او بناءا على شرط : 


00 75711» الصيغة العامة لجملة‎ 
Do while conditional Expression التعبير الشرطى‎ 
Code 
Loop 


الشرط لاى سبب يتم الخروج من الحلقة التكرارية وتنفيذ ما بعد مم0 


ستم تنفيذ الكود بين بداية الحلقة التكرارية »7111 170 ونهايتها 1,00 طالما ان التعبير الشرطى صحيح 15-36 واذا لم يتحقق ظ 


مثال ١‏ : تصميم برنامج لاظهار الاعاداد الفردية مرتبة تصاعديا حتى الرقم الذى يتم ادخاله وعند الضغط على اعداد زوجية يتم عرض 
الاعداد مرتبة تصاعديا حتى الرقم الذى يتم ادخاله فى صندوق قائمة 


Private Sub Button1 Click (ByVal د‎ 
Dim n, 3 As Integer 
TextBox1 . Text 
ListBox1. Items. Clear () 
3+3 
Do While i <= 2 
ListBox1. Items .Add (i) 
1 = 3 + 2 
Loop 
End Sub 


Private Sub Button2 Click (ByVal 
Dim n, 31 As Integer 
n = TextBOXI1. Text 
ListBox1.Items.Clear () 
3-2 
Do While i1 >> 2 
ListBox1. Items . 3 (i) 
- ا يي‎ 
Loop 
End Sub 
:nd Class 


الكود الثانة لعرض الاعداد الزوجية 
لاحظ : لحذف محتويات أداة 0×1 8ء1 من خلال الكود (11508301.146125.001©210 تكون تساوى ۲ آيختلف بقيمة 


لاضافة قيمة 1 الى أداة 0×1 is8‏ من خلال الكود(00)1 ListBox1.Ites.A‏ 


جروب برمجيات امال مصطفى فى الحاسب الالى أعداد : آمال مصطفى 


تستطيع تنفيذ البرنامج ايضا من خلال "٥×٤‏ :1701 من خلال الكود التالى 
الطريقة الأولي الطريقة الثانية 
Dim N, i As Integer Dim N, i As Integer‏ 
N = TextBox1. Text N = TextBox] . Text‏ 
ListBox1. Items .Clear () ListBox1.Items.Clear ()‏ 
Sor i =1 To N Step 2‏ 2 
Do While i <= N 2‏ 


i ع‎ 1 + 2 Next 


مثال ۲ : تصميم برنامج يستقبل عدد موجب ويعرض مجموع الاعداد الفردية فى 1,217613 حتى الرقم الذى يتم ادخاله وعند الضغط على 
مجموع الاعداد الزوجية يعرض الاعداد الزوجية فى 13ء1 حتى الرقم الذى يتم ادخاله 
Private Sub Button1 Click (ByVal‏ 


Dim n, ãi, sum AS Integer 
n = TextBOxX1.Text 


Private Sub Button2 Click (ByVal 
Dim n, 3 , sum AS Integer 
TextBox1 .Text 
2 


n 
HI 


Label3.Text 
End Sub 


تستطيع تنفيذ البرنامج ايضا من خلال ۴٥١۲ ۸٥×)‏ من خلال الكود التالى 
| الطريقة الأولي الطريقة الثانية 
Dim N, i, sum As Integer Dim N, i, sum As Integer‏ 
N = TextBox1.Text N = TextBox1 . Text‏ 
1= 1 
Do While i <= For i =1 To N Step 2‏ 
sum = sum + i sum = sum + i‏ 
Next‏ 2 + 1 = 1 
Loop‏ 


Label3.Text = sum Label3.Text = sum 


الصف الثالث الإعدادى 


نت برمجيات امال مصطفى فى الحاسب الالى با : آمال مصطفى 


e 
Procedures 


تعد به 9 - ّ . 59 
تعريف الإجراء #- هو مجموعة من الأوامر والتعليمات (0006) له اسم معين عند استدعاء هذا الاسم يتم تنفيذ الأوامر 
والتعليمات . 


أنواع الإجراءات فى لغة )10و82 اوناالا :- 


. الإجراء 91172 لا يعود بقيمة‎ ١ 
. ؟- الإجراء دروز)عن"1 يعود بقيمة‎ 


هك أولاً: الإعلان عن الإجراء 91[7:- 


عبارة عن وجود كود معين سيتكرر كتابته فى أكثر من مكان داخل التصنيف 1295) مثال كود يتكرر فى الاداة 1 183136402 و الاداة 

2 02 لعرض الاعداد الفردية والزوجية نفس الكود يتكرر فى الإجرائين مع تغير قيمة البداية فى الاعداد الفردية البداية تكون ١‏ 
وفى الاعداد الزوجية البداية تكون ۲ وتستخدم مرں؟ لكتابته مرة واحدة لسهولة قراءة الكود والإجراء يكتب داخل ۴٥۲٣‏ بالكود 
يمكن استخدام اى عدد من الوسائط 

يستدعى الإجراء بكتابة اسمه ووضع قوسين فى نهاية الاسم 

يتم الاعلان عن الإجراء مرة واحدة ويمكن أستدعاءه اى عدد من المرات 


الصيغة العامة للإعلان عن Sup‏ : 
أسم الاجراء القيم التى تستقبل عند استدعاء الاجراء والتى تستخدم فى ( Sup Name ) Parameters‏ 
الكود 
مجموعة الأوامر التى ستنفذ عند استدعاء الإجراء 0006© 
End Sup‏ 


Procedure تعبر عن اسم الاجراء‎ : ةلورتع-١‎ -١ 
عبارة عن القيم التى يستخدمها داخل الكود الاجراء عند استدعاء الاجراء‎ : Parameters -" 
5111 مجموعة الأوامر والتعليمات التى ستنفذ عند استدعاء الاجراء‎ : )0006 -“* 
Private Sub 55021_0111ا8‎ (ByVal sender As Sys 
Dim X As Integer 
Label1.Text = "" 
For X = 1 To 20 Step 2 
` 2 4 6 8 10 12 14 16 18 20 ظ‎ Label1.Text = Label1.Text غ " " ع‎ X 
Next 
End Sub 


Private Sub Button2_Click (ByVal sender As Sys 


Dim X As Integer 
Label1.Text = "" 
For X = 2 To 20 Step 2 
Label1.Text = Label1.Text & " " & X 
Next 
لكن بالكود السابق نلاحظ كتابة الكود مرتين باختلاف نقطة البداية لعرض الاعاداد الفردية والزوجية لذلك سوف نستخدم الاجراء لكتابة‎ 
الكود مرة واحدة واستدعائه اكثر من مره من خلال‎ 
الاعلان عن الاجراء 501 واستدعاءه لتجنب تكرار كتابة كود اكثر من مره‎ 


الصف الثالث الإعدادى 


جروب برمجيات امال مصطفى فى الحاسب الا 5 


J] Public Class 1ع"‎ 
Dim total As Integer 


Sub Amalmostafa (ByVal a As Single, ByVal b As Single, ByVal c As Single) 
Dim i As Integer 
Label1.Text = " " 
For i = a To b Step c 
Label1.Text = Label1.Text 
Next 


NSE 


Private Sub Button1 Click (ByVal sender As System.Object, ByVal e As System 
Amalmostafa (1, 10, 2) 
End Sub 


Private Sub Button2_ Click (ByVal sender As System.Object, ByVal e As System 
Amalmostafa (2, 10, 2) 
End Sub 
-End Class 
تم الاعلان عن إجراء باسم 22121721051218 يحتوى على الكود المكرر ويتم تنفيذ الاجراء بكتابة اسمه داخل التصنيف مثل كتابة‎ 
131146022 اسمه داخل 18116460111 فى‎ 
1221:2126 ولابد من الاعلان عن 25زع]‎ 
ولتجنب ذلك سوف نعلن عن‎ ١ نلاحظ عند كتابة الكود بهذه الطريقة يتم تكرار الاعداد الفردية فقط دون الزوجية لان نقطة البداية‎ 
وسائط‎ 
Sub Amalmostafa () 
Dim i As Integer 
Label1.Text = " " 
For i = 1 To 10 Step 2 
Label1.Text = Label1.Text & " " &i 
Next 
End Sub 
لذلك نعلن عن الاجراء باسم 212212056342 ثم الوسائط ويعبر ۾ عن البداية و ط عن نهاية وع عن مقدار الزيادة‎ 
Sub Amalmostafa(ByVal a As Single, ByVal b As Single, ByVal c As Single) 
وفى كل مره يتم استدعاء الاجراء يتم وضع قيمة البداية بلا من جح ووضع النهاية بدلا من 1 ووضع مقدار الزيادة بدلا من ع كالتالى‎ 
لعرض الاعداد الفردية و (2 ,10 ,fa)2هstه "اه۸ لعرض الاعداد الزوجية وهكذا لعرض اى اعداد مث‎ صaاmostafa)1,‎ 10, 2( 


عرض الاعداد من ٠١‏ الى 6١‏ بمقدار الزيادة ه 


الصف الثالث الإعدادى 


Amalmostafa(15, 60, 5) 


الفصل الدراسى الثانى 


جروب برمجيات امال مصطفى فى الحاسب الالى أعداد : آمال مصطفى 


8 
لا 
الالة 4 عبرة عن مجموعة من الأوامر تحت اسم معين يفضل ان يكون معبرا عن وظيفته يتم تطبيقها على 
وسائط وتعود بقيمة 
الصيغة العامة للاعلان عند دالة الدالة function‏ `° 
١‏ تبدأ الدالة بكلمة function‏ 
؟- N”‏ تشير إلى أسم الدالة الذى سوف تستدعى من خلاله 
Parameters -“*‏ ھی الوسائط التى تستخدم فى الكود 
4- 6م198 12368 تحد نوع البيان القيمة الراجعة من الدالة 
5- 2006) هى الأوامر والتعيمات التى ستنفذ عند استدعاء الدالة 
5- ترجع قيمة باستخدام Return‏ 
۷- مع۷a1u‏ تشير الى القيمة الراجعة من الدالة 
End Function -/‏ هى نهاية الدالة 


:110112010 الصيغة العامة للإعلان عن الدالة‎ 
Function Name ( Parameters ) As Data Type 
©6006 مجموعة الأوامر والتعليمات المطلوب تنفيذها‎ 
Return Value 
End function 


٭ الدوال 2:و1)ء دن لا يمكن تخصيص قيمة لها 
٭ الدوال 1803:2102 يتم استدعاءها فتنتج قيمة تخزن بها ومن ثم يمكن استخدام هذه القيمة , 


*» الدوال :و1)ءدن8 يفضل تسميتها تسمية تدل على وظيفتها 


جروب برمجيات امال مصطفى فى الحاسب الالى 


: مثال : أعداد مشروع لحساب مجموع عددين واظهار الناتج‎ 
3 Public Class 1 
2 Function Sum (ByVal first As Single, ByVal second As Single) As Single 
Dim total As Single 
total = first + second 
Return total 
End Function 


Private Sub Button1 Click (ByVal sender As System.Object, ByVal e As Sys 
Dim X As Single = 268011 Text 
Dim لا‎ As Single = TextBox2.Text 
Label4.Text = Sum (X, Y) 
End Sub 
LEnd Class 


شرح الكود : بداية الاعلان عن دالة :F۴ unc tio‏ 

Sum‏ اسم الداله 

As Single, second As Single‏ ۴1۲ تم الاعلان عن قينتين من النوع العشرى 
نوع الدالة رقم عشرى ع1ع ددزك 

الاعلان عن متغير 10431 من النوع الرقمى العشرى 

تخصيص ناتج جمع القيمتين (111:50 » 0 ددمعء:) للمتغير 10651 

إرجاع قيمة المتغير 1061 باستخدام الأمر Return‏ 

End Function نهاية الدالة‎ 

تم تخزين قيمة المتغير 10621 فى اسم الدالة ناك 


الصف الثالث الإعدادى 


51 برمجيات امال مصطفى فى الحاسب الالى أعداد : آمال مصطفى 
| "اتاب الأول 
ل ١‏ 


الانترنت له جانبين : 
-١‏ جانب ايجابى مثل نتعلم - نتثقف - نتواصل 
"- جانب سلبى : الحصول على معلومات خطا - انتهاك الخصوصية - انتحال الشخصية - سرقة حسابك البريدى - تعرض جهازك 
لمخاطر كالاصابة بفيروسات او برامج تجسس او برامج القرصنة 
0 4 4 » 
تعريف التعدى الإلكترونى :- 
عبارة عن سلوك عدوانى متعمد من شخصباستخدام الوسائط الإلكترونية بغرض ( التحرش - المضايقة ‏ الأحراج - التخويف - التهديد 


الخ ) 


الوسائط الإلكترونية للتعدى:- 


البريد الكترونى 23811 - 17 . امكانية ارسال واستقبال الرسائل الالكترونية والرد عليها وارفاق ملفات بتلك الرسئل 


الرسائل الفورية عع126553 112543126 .هى اتصال فورى بين طرفين أو اكثر بالكتابة أو المحادثة الصوتية أو المرئية 

المدونات الإلكترونى 13100011128 . هو سجل خاص الكترونى يدون به صاحب المدونة ما يشاء او مجموعة من صفحات الويب 
تحتوى على نصوص وصور ورسومات و اصوات وفيديو 

المواقع التواصل الاجتماعى مثل 13001 1806 . تسمح بنشر معلومات خاصة للشخص صاحب الحساب 


ثالثاً: أشكال التعدى الإلكترونى :- 

١‏ التخفى الإلكترونى (41201153111163 ) : عبارة عن استخدام أسماء مستعارة تخفى شخصية المتعدى 
الإلكترونى بغرض الإفلات من العقاب . 

۲ المضايقات الإلكترونية ( 1121:23551226111111116 ) : عبارة عن رسائل عدائية موجهة ضد شخص أو أكثر . 

"- الملاحقة الإلكترونية ( 5621128 207161 ) : هى شكل من أشكال المضايقات الالكترونية لكن بشكل 
متكرر. 

4- السب أو القذف الإلكترونى ( 713121118 ) : عبارة عن نشر كلمات عدائية ومبتذلة ضد شخص أو أكثر . 

التشهير الإلكترونى ( 20114128)) : عبارة عن نشرمعلومات عن شخص محدد أو أكثر بشكل مسيئ . 
الاستثناء الإلكترونى ( 171115102) : عبارة عن تجاهل شخص أو أكثر من خلال وسائط الكترونية . 

التهديد الإلكترونى ( 11116265 :20710©1)) : عبارة عن إرسال رسائل إلكترونية تحمل تهديد أو وعيد لشخص 
أو أكثر . 
كيف تحمى نفسك من التعدى الإلكترونى ؟ 

١-لا‏ تشارك أحد كلمة المرور . 

؟- إعداد كلمة مرور لا تستنتج . 

- عدم نشر أى بيانات خاصة . 

؛- عدم حذف رسائل التعدى . 

. عدم مقابلة أحد تعرفت عليه من خلال الانترنت‎ ٥ 

5 عدم إرسال رسائل وأنت فى حالة غضب . 

۷ اطلاع ولى الأمر بما يضايقك عند استخدام الانترنت . 

۸ إنزال البرامج من الانترنت يكون تحت إشراف معلمك أو ولى الأمر . 


الصف الثالث الإعدادى ' الفصل الدراسى الثانى 


